home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Purity
/
Purity #42 (1995-01)(PackMAN)(DE)[WB].zip
/
Purity #42 (1995-01)(PackMAN)(DE)[WB].adf
/
Includes3v1
/
Includes3v1.lha
/
Utils
/
Printf.i
< prev
next >
Wrap
Text File
|
1994-12-04
|
447b
|
22 lines
{$I "Include:DOS/Dos.i"}
{$I "Include:Utils/StringLib.i"}
{$C+}
PROCEDURE Printf(Str : String; ...);
VAR Objects : Array[0..50] of Address;
ArgPtr : Address;
i : Integer;
ParamNum : Integer;
BEGIN
VA_Start(ArgPtr);
ParamNum:=0;
For i:=0 to StrLen(Str) do IF Str[i]='%' THEN Inc(ParamNum); { Prozent-Zeichen zählen }
For i:=0 to ParamNum-1 do Objects[i]:=VA_Arg(ArgPtr,Address);
i:=VPrintf(Str,adr(Objects));
END;
{$C-}